home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2008 April
/
PCWorld_2008-04_cd.bin
/
temacd
/
bosshtml
/
Boss HTML Code.exe
/
0
/
RCDATA
/
TFRMOPRG
/
TFRMOPRG.txt
< prev
Wrap
Text File
|
2005-09-29
|
5KB
|
251 lines
object frmoprg: Tfrmoprg
Left = 366
Top = 274
BorderStyle = bsDialog
Caption = 'O programu'
ClientHeight = 250
ClientWidth = 330
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label10: TLabel
Left = 112
Top = 48
Width = 96
Height = 20
Caption = 'Nahr'#225'v'#225' se...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Gauge1: TGauge
Left = 8
Top = 104
Width = 313
Height = 25
ForeColor = clBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Progress = 0
end
object Button1: TButton
Left = 128
Top = 216
Width = 65
Height = 25
Caption = '&Zav'#345#237't'
TabOrder = 0
OnClick = Button1Click
end
object Memo1: TMemo
Left = 152
Top = 144
Width = 121
Height = 49
Lines.Strings = (
'BOSS HTML CODE'
'Copyright 2000-2005 '
'Jan Dlouh'#253
''
't'#237'mto bych cht'#283'l '
'pod'#283'kovat:'
''
'Autor'#367'm knih jak '
'programovat v Delphi:'
'-Slavoj P'#237'sek'
'-V'#225'clav Kadlec'
''
'A hlavn'#283' za trp'#283'livost a '
'hodn'#283' tip'#367' panu:'
'-Josefu Kasalovi')
TabOrder = 1
Visible = False
end
object Panel2: TPanel
Left = 64
Top = 72
Width = 201
Height = 97
Color = clBlack
TabOrder = 2
Visible = False
object PaintBox1: TPaintBox
Left = 1
Top = 1
Width = 199
Height = 95
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object Panel1: TPanel
Left = 8
Top = 16
Width = 313
Height = 185
BevelOuter = bvNone
TabOrder = 3
object Bevel1: TBevel
Left = 0
Top = 0
Width = 313
Height = 81
end
object Label1: TLabel
Left = 16
Top = 4
Width = 285
Height = 37
Caption = 'BOSS HTML CODE'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -33
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image1: TImage
Left = 16
Top = 40
Width = 33
Height = 33
Picture.Data = {<image000.ico>}
OnMouseUp = Image1MouseUp
end
object Image2: TImage
Left = 264
Top = 40
Width = 33
Height = 33
Picture.Data = {<image001.ico>}
end
object Label2: TLabel
Left = 64
Top = 40
Width = 190
Height = 16
Caption = 'Copyright 2000-2005 Jan Dlouh'#253
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 120
Top = 64
Width = 65
Height = 16
Caption = 'Verze: 1.70'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Bevel2: TBevel
Left = 0
Top = 88
Width = 313
Height = 97
end
object Label4: TLabel
Left = 70
Top = 105
Width = 190
Height = 16
Caption = 'Nav'#353'tivte autorovu www str'#225'nku:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 104
Top = 120
Width = 117
Height = 13
Cursor = crHandPoint
Caption = 'www.bosssoftworks.com'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = Label7Click
end
object Label6: TLabel
Left = 72
Top = 136
Width = 188
Height = 16
Caption = 'Va'#353'e dotazy a n'#225'pady pi'#353'te na:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 104
Top = 152
Width = 128
Height = 13
Cursor = crHandPoint
Caption = 'bosssoftworks@seznam.cz'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = Label9Click
end
end
object Timer1: TTimer
Enabled = False
Interval = 6100
OnTimer = Timer1Timer
Left = 24
Top = 216
end
object Timer2: TTimer
Enabled = False
Interval = 50
OnTimer = Timer2Timer
Left = 232
Top = 216
end
object Timer3: TTimer
Enabled = False
Interval = 5800
OnTimer = Timer3Timer
Left = 272
Top = 216
end
end